From: Kai Großjohann <kgrossjo@eu.uu.net>
Date: Fri, 10 Jan 2003 16:42:27 +0000 (+0000)
Subject: (dired-garbage-files-regexp): Use \\' instead of $ and
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~28916
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3dece9d02d2fcd70b35ff1e0e0f19686fc030515;p=emacs.git

(dired-garbage-files-regexp): Use \\' instead of $ and
use regexp-opt for readability.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3db5d7cc625..2266c1a184d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-10  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+	* dired.el (dired-garbage-files-regexp): Use \\' instead of $ and
+	use regexp-opt for readability.
+
 2003-01-10  Mark A. Hershberger  <mah@everybody.org>
 
 	* xml.el (xml-parse-tag, xml-parse-attlist, xml-skip-dtd)
diff --git a/lisp/dired.el b/lisp/dired.el
index 9dbde910911..160fee7d34b 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2570,7 +2570,9 @@ A prefix argument says to unflag those files instead."
      "auto save file")))
 
 (defvar dired-garbage-files-regexp
-  "\\.log$\\|\\.toc$\\|\\.dvi$\\|\\.bak$\\|\\.orig$\\|\\.rej$\\|.aux$" 
+  (concat (regexp-opt
+	   '(".log" ".toc" ".dvi" ".bak" ".orig" ".rej" ".aux"))
+	  "\\'") 
   "*Regular expression to match \"garbage\" files for `dired-flag-garbage-files'.")
 
 (defun dired-flag-garbage-files ()